#!/usr/bin/env perl

#初始化名单列表
@user_list = qw/ fred betty barney dino wilma pebbles bamm-bamm /;

#输入一些数字
@input = <STDIN>;

#根据每个数字输出名单对应的人名
for (@input) {
    print "@user_list[$_] ";
}
print "\n";
